Top 10k strings from HL ZX Forth (1983)(Mike Hampson)[a].z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [Z80] (TOSEC-v2007-01-01) /

Back to the directory listing

   1 {>IN   $|?DUP  *|ABORT @|COUNT _|DEPTH t|EXECUT
   1 xBRIGHT(xPAPER ;xINK   QxBORDERbxHIRES qxPLOT  
   1 while,r-while-1
   1 wLOOP  "w+LOOP 7wLEAVE WwEXIT  ^wEXITLP`wWAIT  ewMAX   vwMIN   
   1 tFIELD FuCR    Qu+
   1 tEMIT  pt.
   1 forget words
   1 else,r-else-1
   1 a$=a$+n$(1
   1 a$="mc byte:":
   1 a$="WHILE"
   1 a$="UNTIL"
   1 a$="REPEAT"
   1 a$="Name Word:":
   1 a$="Give UDG number:":
   1 a$="Forget ":
   1 a$="File Name:":
   1 a$="Continue definition:":
   1 a$="BEGIN"
   1 a$="***>":
   1 a$(x);"+":
   1 HL ZX FORTH
   1 ;"Character ";C:
   1 ,begin-r+254
   1 ,begin-r+251
   1 *(a$="s")-1000
   1 *(a$="d")+3000
   1 *(a$=":")+2000
   1 ''''"Stack:";(29676
   1 '"You are now in Command Mode."
   1 '"Word not found.":
   1 '"Word already used.":
   1 '"Typing error.Continue.":
   1 '"Tape OK.":
   1 "routines"
   1 "dict&chrs"
   1 "Please play back to verify.":
   1 "Forgotten:";a$
   1 "Compiling - please wait."
   1 "''"2nd version 
   1  yC@    ,y!
   1  words exclusively for his own   use."
   1  illegal except for storage of   the purchacer's own FORTH
   1  Redefinition of character ";a$
   1  March 83 M Hampson"''"Please wait"
   1  Copying of this program is
   1  8yC!    DyP@    NyP!    [yFILL  fyERASE xyDELETE
   1  -vDROP  AvDUP   IvOVER  SvPICK  _vSWAP  qvROT   |vROLL  
   1  *zINKEY 9zKEY   MzRND   tzwrdsch